home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / pctj486.arc / PRRESET.PAS < prev    next >
Pascal/Delphi Source File  |  1985-11-03  |  295b  |  15 lines
  1. program prreset;
  2.  
  3. { Turbo Pascal program to initialize any parallel printer }
  4.  
  5. var  address: integer absolute $0040:$0008;
  6.      portno,
  7.      delay:   integer;
  8.  
  9. begin
  10.   portno := address + 2;
  11.   port[portno] := 232;
  12.   for delay := 1 to 2000 do {nothing};
  13.   port[portno] := 236
  14. end.
  15.